home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / dev / lang / Python151_Src.lha / Python1.5_Source / Amiga / getpid.c < prev    next >
C/C++ Source or Header  |  1998-12-25  |  413b  |  19 lines
  1. RCS_ID_C="$Id: getpid.c,v 4.1 1994/09/29 23:09:02 jraja Exp $";
  2. /*
  3.  *      getpid() - stub for the FindTask(NULL)
  4.  *
  5.  *      Copyright © 1994 AmiTCP/IP Group, 
  6.  *                       Network Solutions Development Inc.
  7.  *                       All rights reserved.
  8.  */
  9.  
  10. #include <sys/types.h>
  11. #include <exec/execbase.h>
  12. extern struct ExecBase *SysBase;
  13.  
  14. pid_t
  15. getpid(void)
  16. {
  17.   return (pid_t)SysBase->ThisTask;
  18. }
  19.